       IDENTIFICATION DIVISION.
       PROGRAM-ID. MostrarArchivoClientes.
       AUTHOR. Grupo 5. 2do cuatrimestre 2011.

       ENVIRONMENT DIVISION.
         INPUT-OUTPUT SECTION.
           FILE-CONTROL.
             SELECT CLI-ARCH ASSIGN TO "CLIENTES.IDX"
                 ORGANIZATION IS INDEXED
                 ACCESS MODE IS SEQUENTIAL
                 RECORD KEY IS CLI-COD-CLI
                 ALTERNATE RECORD KEY IS CLI-CUIT
                 FILE STATUS IS CLI-STATUS.

       DATA DIVISION.
         FILE SECTION.
           COPY "Clientes-FD.cbl".

         WORKING-STORAGE SECTION.
           01 CLI-STATUS                PIC X(02).

       PROCEDURE DIVISION.
         OPEN INPUT CLI-ARCH

         MOVE SPACES TO CLI-COD-CLI
         START CLI-ARCH KEY IS GREATER THAN CLI-COD-CLI
         
         READ CLI-ARCH NEXT RECORD
             AT END SET CLI-EOF TO TRUE
         END-READ.
         
         PERFORM UNTIL CLI-EOF
             DISPLAY CLI-REG

             READ CLI-ARCH NEXT RECORD
                 AT END SET CLI-EOF TO TRUE
             END-READ
         END-PERFORM
          
         CLOSE CLI-ARCH
          
         STOP RUN
         .
